home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Directorytools / MegaD / rexx / DLPrint.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-27  |  327 b   |  19 lines
  1. /* Automate printing labels for each disk inserted into drive DF0: */
  2.  
  3. address REXX
  4.  
  5. options results
  6.  
  7. address MEGAD
  8. dbug
  9.  
  10. do forever
  11.     diskin
  12.     if result == "ABORT" then leave
  13.     "mark df0:"
  14.     selectall
  15.     NextItem Name /* will test for at lease one item on the disk to print label for */
  16.     if result ~= "" then label
  17.     freeVolumes
  18. end
  19.